#!/usr/bin/env perl

use utf8;
use strict;
use autodie;

open my $fh_rock, '>>', 'rocks.txt';

foreach my $rock ( qw(slate lava granite) ){
	say $fh_rock $rock;
}

print $fh_rock "limestone\n";
close $fh_rock;
